home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / clang / fgl105c.zip / 08-01.C < prev    next >
Text File  |  1991-05-05  |  706b  |  37 lines
  1. #define PAGES 4
  2.  
  3. main()
  4. {
  5.    int color;
  6.    int old_mode;
  7.    int page;
  8.    char string[8];
  9.  
  10.    if (fg_testmode(1,PAGES) == 0) {
  11.       printf("This program requires color.\n");
  12.       exit();
  13.       }
  14.  
  15.    old_mode = fg_getmode();
  16.    fg_setmode(1);
  17.  
  18.    for (page = 0; page < PAGES; page++) {
  19.       fg_setpage(page);
  20.       color = page + 1;
  21.       fg_setcolor(color);
  22.       fg_rect(0,fg_getmaxx(),0,fg_getmaxy());
  23.       fg_setattr(0,color,0);
  24.       fg_locate(12,17);
  25.       sprintf(string,"page %d",page);
  26.       fg_text(string,6);
  27.       }
  28.  
  29.    for (page = 0; page < PAGES; page++) {
  30.       fg_setvpage(page);
  31.       fg_waitkey();
  32.       }
  33.  
  34.    fg_setmode(old_mode);
  35.    fg_reset();
  36. }
  37.